home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / rexx / magiccx / pasrevision.ced < prev    next >
Text File  |  1995-02-13  |  1KB  |  91 lines
  1. /*
  2.     $VER: PASRevision.ced 1.0 (12.8.94)
  3.  
  4.     Revises an Pascal/Modula source code
  5.     The default Port of MagicCX is assumed to be MCX.
  6.     This script was written for CygnusED II Pro, but I think it can
  7.     be easily ported to other editors having an ARexx-Port.
  8.  
  9.     Written by :     Kai Iske
  10.              Brucknerstrasse 18
  11.              63452 Hanau
  12.              GERMANY
  13.              Tel.: +49-(0)6181-850181
  14.  
  15.     THIS SCRIPT IS PUBLIC DOMAIN
  16. */
  17.  
  18.  
  19.  
  20. OPTIONS RESULTS
  21. ADDRESS 'rexx_ced'
  22.  
  23.  
  24. /*
  25.    Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
  26.    (Please add complete paths for the files!)
  27. */
  28.  
  29. INITVER        = 1
  30. INITREV        = 0
  31. INSBEFORE    = PASInsertBeforeHeader
  32. INSAFTER    = PASInsertAfterHeader
  33.  
  34.  
  35.  
  36. /*
  37.    Get information about current file
  38. */
  39.  
  40. STATUS 20
  41. Path = RESULT
  42. IF Path ~= '' THEN
  43. DO
  44.     CHANGE CURRENT DIRECTORY Path
  45.     IF (RIGHT(Path, 1) ~= ':') & (RIGHT(Path, 1) ~= '/') THEN
  46.         Path = Path || '/'
  47. END
  48.  
  49.  
  50. /*
  51.    Save file in editor
  52. */
  53.  
  54. SAVE
  55.  
  56.  
  57. /*
  58.    Get FileName of file being edited
  59. */
  60.  
  61. STATUS 21
  62. FileName    = RESULT
  63. RevName        = Path || FileName
  64.  
  65.  
  66. /*
  67.    Start RCS
  68. */
  69.  
  70. QUOTE    = '22'X
  71.  
  72. OPTIONS RESULTS
  73. ADDRESS 'MCX' REVISE 'FILE='QUOTE''RevName''QUOTE 'MODE=PAS' 'PUBSCREEN=CygnusEdScreen1' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  74.  
  75. /*
  76.    Get results
  77. */
  78.  
  79. RevDone = RESULT
  80.  
  81. /*
  82.    No error, reload file
  83. */
  84.  
  85. IF RevDone = 'TRUE' THEN
  86.     open FileName
  87. ELSE
  88.     SAY 'Error occured during revision.'
  89.  
  90. EXIT
  91.